#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
$, = "\t"; $\ = "\n";
my $backup_full_path = "\/mnt\/sdb\/backup\/full\/mongodb";
print "生成全量备份：$backup_full_path ";
qx/\/usr\/bin\/mongodump -h 127.0.0.1 -p 27017 -d ecg -o $backup_full_path /;
